home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '88 / Other stuff / MacsBug 6.0b1 / Resource Files / FloatingPoint.r next >
Encoding:
Text File  |  1988-04-13  |  2.2 KB  |  75 lines  |  [TEXT/MPS ]
  1. /*
  2.  
  3. Copyright Apple Computer, Inc. 1981-1988
  4.  
  5. Rez -a -o "{SystemFolder}MacsBug" "{MPW}Debuggers:FloatingPoint.r" ≥≥ "{Worksheet}"
  6. Shutdown -r
  7.  
  8. */
  9.  
  10.  
  11. type 'mxbm'{
  12.     integer = $$CountOf(symbols);          /* Number of entries     */
  13.     array symbols { pString; pString; };   /* Macro name; expansion */
  14. };
  15.  
  16.  
  17. /* These macros enable you to type "ATB FO<name>" as if FO<name> was a trap */
  18.  
  19. resource 'mxbm' (101) {
  20.    {
  21.     "FOADD",        "FP68K (A7+1)^.B = 0",
  22.     "FOSUB",        "FP68K (A7+1)^.B = 2",
  23.     "FOMUL",        "FP68K (A7+1)^.B = 4",
  24.     "FODIV",        "FP68K (A7+1)^.B = 6",
  25.     "FOCMP",        "FP68K (A7+1)^.B = 9",
  26.     "FOCPX",        "FP68K (A7+1)^.B = A",
  27.     "FOREM",        "FP68K (A7+1)^.B = C",
  28.     "FOZ2X",        "FP68K (A7+1)^.B = E",
  29.     "FOX2Z",        "FP68K (A7+1)^.B = 10",
  30.     "FOSQRT",        "FP68K (A7+1)^.B = 12",
  31.     "FORTI",        "FP68K (A7+1)^.B = 14",
  32.     "FOTTI",        "FP68K (A7+1)^.B = 16",
  33.     "FOSCALB",        "FP68K (A7+1)^.B = 18",
  34.     "FOLOGB",        "FP68K (A7+1)^.B = 1A",
  35.     "FOCLASS",        "FP68K (A7+1)^.B = 1C",
  36.  
  37.     "FOSETENV",        "FP68K (A7+1)^.B = 1",
  38.     "FOGETENV",        "FP68K (A7+1)^.B = 3",
  39.     "FOSETHV",        "FP68K (A7+1)^.B = 5",
  40.     "FOGETHV",        "FP68K (A7+1)^.B = 7",
  41.     "FOD2B",        "FP68K (A7+1)^.B = 9",
  42.     "FOB2D",        "FP68K (A7+1)^.B = B",
  43.     "FONEG",        "FP68K (A7+1)^.B = D",
  44.     "FOABS",        "FP68K (A7+1)^.B = F",
  45.     "FOCPYSGN",        "FP68K (A7+1)^.B = 11",
  46.     "FONEXT",        "FP68K (A7+1)^.B = 13",
  47.     "FOSETXCP",        "FP68K (A7+1)^.B = 15",
  48.     "FOPROCENTRY",    "FP68K (A7+1)^.B = 17",
  49.     "FOPROCEXIT",    "FP68K (A7+1)^.B = 19",
  50.     "FOTESTXCP",    "FP68K (A7+1)^.B = 1B",
  51.  
  52.     "FOLNX",        "ELEMS68K (A7+1)^.B = 0",
  53.     "FOLOG2X",        "ELEMS68K (A7+1)^.B = 2",
  54.     "FOLN1X",        "ELEMS68K (A7+1)^.B = 4",
  55.     "FOLOG21X",        "ELEMS68K (A7+1)^.B = 6",
  56.     "FOEXPX",        "ELEMS68K (A7+1)^.B = 8",
  57.     "FOEXP2X",        "ELEMS68K (A7+1)^.B = A",
  58.     "FOEXP1X",        "ELEMS68K (A7+1)^.B = C",
  59.     "FOEXP21X",        "ELEMS68K (A7+1)^.B = C",
  60.     "FOXPWRI",        "ELEMS68K (A7+1)^.B = 10",
  61.     "FOXPWRY",        "ELEMS68K (A7+1)^.B = 12",
  62.     "FOCOMPOUND",    "ELEMS68K (A7+1)^.B = 14",
  63.     "FOANNUITY",    "ELEMS68K (A7+1)^.B = 16",
  64.     "FOSINX",        "ELEMS68K (A7+1)^.B = 18",
  65.     "FOCOSX",        "ELEMS68K (A7+1)^.B = 1A",
  66.     "FOTANX",        "ELEMS68K (A7+1)^.B = 1C",
  67.     "FOATANX",        "ELEMS68K (A7+1)^.B = 1E",
  68.     "FORANDX",        "ELEMS68K (A7+1)^.B = 20",
  69.  
  70.     "FOPSTR2DEC",    "DecStr68K (A7+1)^.B = 2",
  71.     "FOCSTR2DEC",    "DecStr68K (A7+1)^.B = 4",
  72.     "FODEC2STRC",    "DecStr68K (A7+1)^.B = 3",
  73.    };
  74. };
  75.